﻿Imports Control_Vuelos_BE
Imports Control_Vuelos_ADO

Public Class UsuarioBL
    Dim _Usuario As New UsuarioADO

    Public Function pr_ValidarUsuario(ByVal p_coduser As String, ByVal p_pswuser As String) As Boolean
        Return _Usuario.pr_ValidarUsuario(p_coduser, p_pswuser)
    End Function

    Public Function pr_Select_Usuarios(ByRef p_key As String) As DataTable
        Return _Usuario.pr_Select_Usuarios(p_key)
    End Function

    Public Function pr_Get_Usuario(ByRef p_coduser As String) As Usuario
        Return _Usuario.pr_Get_Usuario(p_coduser)        
    End Function

End Class
